home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / dalib / random / int.f < prev    next >
Text File  |  1993-03-23  |  259b  |  18 lines
  1.       program int_randoms
  2.  
  3.       parameter (N=100,K=15)
  4.  
  5.       integer A(N), HA(N)
  6. cmf$  layout HA(:HOST)
  7.  
  8.       print *, 'Get ',N,' random numbers from 0 to ', K-1
  9.  
  10.       call cmf_random (A,K)
  11.  
  12.       HA = A
  13.  
  14.       print 10, HA
  15.   10  FORMAT (10I8)
  16.  
  17.       end
  18.